home *** CD-ROM | disk | FTP | other *** search
/ The Disc - MacWorld 1995 / PowerComputing (The Disc)(MacWorld 1995).ISO / mac / CDFACTOR / HCfactor / HumanCode / HumanCode.DXR / 00060.ls < prev    next >
Encoding:
Text File  |  1995-07-14  |  1.1 KB  |  54 lines
  1. global onIBM, theQTMovie, gEndMovie
  2.  
  3. on enterFrame
  4.   if onIBM then
  5.     pause()
  6.   else
  7.     set gEndMovie to 0
  8.   end if
  9. end
  10.  
  11. on exitFrame
  12.   repeat while not mouseDown() and not (the commandDown)
  13.     if QTGetCurrtime(theQTMovie) < the duration of theQTMovie then
  14.       QTIdle(theQTMovie)
  15.       next repeat
  16.     end if
  17.     QTPause(theQTMovie)
  18.     QTDispose(theQTMovie)
  19.     set gEndMovie to 1
  20.     exit repeat
  21.   end repeat
  22.   if gEndMovie then
  23.     go("introPause")
  24.   else
  25.     go(the frame)
  26.   end if
  27. end
  28.  
  29. on idle
  30.   if onIBM then
  31.     if QTGetCurrtime(theQTMovie) >= the duration of theQTMovie then
  32.       QTPause(theQTMovie)
  33.       QTDispose(theQTMovie)
  34.       go("introPause")
  35.     end if
  36.   else
  37.     repeat while not mouseDown() and not (the commandDown)
  38.       if QTGetCurrtime(theQTMovie) < the duration of theQTMovie then
  39.         QTIdle(theQTMovie)
  40.         next repeat
  41.       end if
  42.       QTPause(theQTMovie)
  43.       QTDispose(theQTMovie)
  44.       set gEndMovie to 1
  45.       exit repeat
  46.     end repeat
  47.     if gEndMovie then
  48.       go("introPause")
  49.     else
  50.       go(the frame)
  51.     end if
  52.   end if
  53. end
  54.